﻿Public Class Inf_Natalidad_madreSolteras
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            FG.culturaPaginas()

        End If
    End Sub
    Private Sub muestraMadreSoltera()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el panel 
        P_MadreSoltera.Visible = False



        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("Informe_natalaidadPorMadreSoltera", param, "muestraMadreSoltera - Inf_natalidad_madreSolytera")

        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        P_MadreSoltera.Visible = True
        IMg_madreSoltera.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.DosDimensiones, 580, 220, "Sin pareja estable", Drawing.Color.Blue)

        Lbl_NivelProvincial.Visible = True

    End Sub

    Private Sub muestraMadreConParejas()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el panel 
        P_madrCasada.Visible = False



        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("Informe_natalidad_deMadreConParejaEstable", param, "muestraMadreConParejas - Inf_natalidad_madreSolytera")

        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        P_madrCasada.Visible = True
        Img_MadreCasada.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.DosDimensiones, 580, 220, "Con pareja estable", Drawing.Color.Blue)


        Lbl_NivelProvincial.Visible = True
    End Sub

    Private Sub TraeTasa_nivelPais()

        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el panel 
        P_nivelPais.Visible = False




        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("Informe_SituacionConyugal_A_nivelPAis", param, "muestraMadreConParejas - Inf_natalidad_madreSolytera")

        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        P_nivelPais.Visible = True
        Img_nivelPaid.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.TRes_D, 510, 210, , Drawing.Color.Blue)


        Lbl_NivelPAis.Visible = True

    End Sub
    Protected Sub btnAnioGraf_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAnioGraf.Click

        '--saco el cartel 
        FG.SacaCartelDeAViso(lbl_Msje)



        'seteo los titulos 
        Lbl_NivelProvincial.Visible = False
        Lbl_NivelPAis.Visible = False

        'muestros los numeros de madres solteras 
        muestraMadreSoltera()



        'muestro numeros de madres cn pareja 
        muestraMadreConParejas()

        'situacion conyugal nivel pais 
        TraeTasa_nivelPais()


        ' si no hay datos aviso
        If P_madrCasada.Visible = False And P_MadreSoltera.Visible = False And P_nivelPais.Visible = False Then
            FG.MuestraCartel("No hay datos", lbl_Msje)
        End If

    End Sub
End Class